<%page=request.querystring("page") if len(page)<1 then page=1 if page<1 then page=1 if not(isnumeric(page)) then page=1 page=int(page) set rs=server.createobject("adodb.recordset") if bclassid=66 then rs.open "execute [dbo].[Get_bclass_news_source] " & bclassid,Fconn,1,3 else rs.open "execute [dbo].[Get_bclass_news] " & bclassid,Fconn,1,3 end if if rs.eof then response.write "本栏目暂无新闻" response.end else rs.pagesize=22 totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page i=0 do while not rs.eof and (i0 then if len(pic)>4 then new2=new2&"

[" & newssource & "]    "&title&"

"&Myleft(smallbody,140)&" ……

"&date1&"

" else new2=new2&"

[" & newssource & "]    "&title&"

"&Myleft(smallbody,180)&" ……

"&date1&"

" end if else if len(pic)>4 then new2=new2&"

[" & newssource & "]    ;"&title&"

"&Myleft(smallbody,140)&" ……

"&date1&"

" else new2=new2&"

[" & newssource & "]    "&title&"

"&Myleft(smallbody,180)&" ……

"&date1&"

" end if end if else if len(titlelink)>0 then if len(pic)>4 then new2=new2&"

·"&title&"

"&Myleft(smallbody,140)&" ……

"&date1&"

" else new2=new2&"

·"&title&"

"&Myleft(smallbody,180)&" ……

"&date1&"

" end if else if len(pic)>4 then new2=new2&"

·"&title&"

"&Myleft(smallbody,140)&" ……

"&date1&"

" else new2=new2&"

·"&title&"

"&Myleft(smallbody,180)&" ……

"&date1&"

" end if end if end if response.Write new2 new2="" rs.movenext loop new2="" new2=new2&"

共"&totalpage&"页    每页22条    第"&page&"页    首页  " if page-1>0 then new2=new2&"上一页    " else new2=new2&"上一页    " end if if page+1<=totalpage then new2=new2&"下一页    " else new2=new2&"下一页    " end if new2=new2&"尾页  共"&totalrec&"条

" response.Write new2 end if rs.close set rs=nothing CloseConn() %>